Introduction
Calculating housing stress using 30/40 as in here: https://www.ahuri.edu.au/policy/ahuri-briefs/2016/3040-indicator
2016 Census - Counting Dwellings, Place of Enumeration (SA2)
Data Source: Census of Population and Housing, 2016, TableBuilder
Counting: Dwellings Location on Census Night
Variables:
- HIED Equivalised Total Household Income (weekly)
- RNTRD Rent (weekly) Ranges
- MRERD Mortgage Repayments (monthly) Ranges
library(tidyverse)
library(readxl)
library(sf)
library(tmap)
library(janitor)
library(scales)
Importing the raw data
Midpoints for rent and mortgages
Joining
mort_join <- left_join(hhincwk_mid40, mort_hh)
Joining, by = "hhincwk"
mort_join <- left_join(mort_join, mortwk_mid)
Joining, by = "mortmth"
mort_join
What does it look like?
Most of the SA2s have fewer than 30 per cent of households in housing stress.

The shapefile
gm_shp <- st_read("shp/SA2_2016_GMEL.shp") %>%
clean_names() %>%
select(sa2_name16) %>%
left_join(housingstress_sa2, by = c("sa2_name16" = "sa2")) %>%
mutate(prop_stress = round(prop_stress, 2))
Reading layer `SA2_2016_GMEL' from data source `/home/williamlai/RScripts/housing_stress_2016/shp/SA2_2016_GMEL.shp' using driver `ESRI Shapefile'
Simple feature collection with 309 features and 12 fields
Geometry type: MULTIPOLYGON
Dimension: XY
Bounding box: xmin: 144.3336 ymin: -38.50299 xmax: 145.8784 ymax: -37.1751
proj4string: +proj=longlat +ellps=GRS80 +no_defs
The map
Concentrations in the growth areas.
LS0tCnRpdGxlOiAiSG91c2luZyBTdHJlc3MgLSBTQTJzIGluIEdyZWF0ZXIgTWVsYm91cm5lIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgojIEludHJvZHVjdGlvbgoKQ2FsY3VsYXRpbmcgaG91c2luZyBzdHJlc3MgdXNpbmcgMzAvNDAgYXMgaW4gaGVyZTogIGh0dHBzOi8vd3d3LmFodXJpLmVkdS5hdS9wb2xpY3kvYWh1cmktYnJpZWZzLzIwMTYvMzA0MC1pbmRpY2F0b3IgCgoyMDE2IENlbnN1cyAtIENvdW50aW5nIER3ZWxsaW5ncywgUGxhY2Ugb2YgRW51bWVyYXRpb24gKFNBMikKCkRhdGEgU291cmNlOiBDZW5zdXMgb2YgUG9wdWxhdGlvbiBhbmQgSG91c2luZywgMjAxNiwgVGFibGVCdWlsZGVyCgpDb3VudGluZzogRHdlbGxpbmdzIExvY2F0aW9uIG9uIENlbnN1cyBOaWdodAoKVmFyaWFibGVzOgoKKiBISUVEIEVxdWl2YWxpc2VkIFRvdGFsIEhvdXNlaG9sZCBJbmNvbWUgKHdlZWtseSkKKiBSTlRSRCBSZW50ICh3ZWVrbHkpIFJhbmdlcwoqIE1SRVJEIE1vcnRnYWdlIFJlcGF5bWVudHMgKG1vbnRobHkpIFJhbmdlcwoKYGBge3IsIHdhcm5pbmc9RkFMU0UsIG1lc3NhZ2UgPSBGQUxTRX0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkocmVhZHhsKQpsaWJyYXJ5KHNmKQpsaWJyYXJ5KHRtYXApCmxpYnJhcnkoamFuaXRvcikKbGlicmFyeShzY2FsZXMpCmBgYAoKIyMgSW1wb3J0aW5nIHRoZSByYXcgZGF0YQoKYGBge3J9CiMjb3JpZ2luYWwgZmlsZXMgLSAyMDE2IGNlbnN1cyBkYXRhIC0gY3N2IHN0cmluZyAtIHplcm9zIHN1cHByZXNzZWQKcmVudGRhdGEgPC0gcmVhZF9leGNlbCgic2EyX2RhdGEueGxzeCIsIHNoZWV0ID0gInNhMl9oaWVkX3JudHJkXzJnbWVsXyB6ZXJvc19zdXAiLCByYW5nZSA9ICJBMTE6RjQ5MTA2IikgJT4lIAogIGZpbHRlcihHQ0NTQSA9PSAiR3JlYXRlciBNZWxib3VybmUiKSAKCm1vcnRkYXRhIDwtIHJlYWRfZXhjZWwoInNhMl9kYXRhLnhsc3giLCBzaGVldCA9ICJzYTJfaGllZF9tcmVyZF8yZ21lbF8gemVyb3Nfc3VwIiwgcmFuZ2UgPSAiQTExOkY1OTcwOCIpICU+JSAKICBmaWx0ZXIoR0NDU0EgPT0gIkdyZWF0ZXIgTWVsYm91cm5lIikKYGBgCgojIyBUcmFuc2Zvcm1pbmcgdGhlIHJlbnQgZGF0YQoKYGBge3J9CnJlbnQgPC0gcmVudGRhdGEgJT4lIAogIHJlbmFtZShzYTIgPSBTQTIsCiAgICAgICAgIGhoaW5jd2sgPSBgSElFRCBFcXVpdmFsaXNlZCBUb3RhbCBIb3VzZWhvbGQgSW5jb21lICh3ZWVrbHkpYCwKICAgICAgICAgcmVudHdrID0gYFJOVFJEIFJlbnQgKHdlZWtseSkgUmFuZ2VzYCkgJT4lIAogIG11dGF0ZShoaGluY3drID0gYXNfZmFjdG9yKGhoaW5jd2spLCByZW50d2sgPSBhc19mYWN0b3IocmVudHdrKSkgJT4lIAogIHJlbmFtZShoaCA9IENvdW50KSAlPiUgCiAgc2VsZWN0KC1Db3VudGluZykKcmVudAoKcmVudF9kdyA8LSByZW50ICU+JQogIGZpbHRlcihoaGluY3drICE9ICdOb3QgYXBwbGljYWJsZScsCiAgICAgICAgIHJlbnR3ayAhPSAnTm90IGFwcGxpY2FibGUnKSAlPiUgCiAgZ3JvdXBfYnkoc2EyKSAlPiUgCiAgc3VtbWFyaXNlKGR3ID0gc3VtKGhoKSkgCnJlbnRfZHcgI2ltcHJvdmUgdGhpcyBieSBqdXN0IGdldHRpbmcgdGhlIGR3ZWxsaW5nIGRhdGEgZnJvbSB0aGUgZGF0YXBhY2tzIGFuZCBqb2luaW5nIHRoZW0gb24gYXQgdGhlIGVuZCAtRzMyCgpyZW50X2hoIDwtIHJlbnQgJT4lIAogIGZpbHRlcighaGhpbmN3ayAlaW4lIGMoJ05pbCBpbmNvbWUnLCAnUGFydGlhbCBpbmNvbWUgc3RhdGVkJywgJ0FsbCBpbmNvbWVzIG5vdCBzdGF0ZWQnLCAnTm90IGFwcGxpY2FibGUnKSwKICAgICAgICAgIXJlbnR3ayAlaW4lIGMoJ05vdCBzdGF0ZWQnLCAnTm90IGFwcGxpY2FibGUnICkpCnJlbnRfaGgKYGBgCgojIyBUcmFuc2Zvcm1pbmcgdGhlIG1vcnRnYWdlIGRhdGEKCmBgYHtyfQptb3J0IDwtIG1vcnRkYXRhICU+JSAKICByZW5hbWUoc2EyID0gU0EyLAogICAgICAgICBoaGluY3drID0gYEhJRUQgRXF1aXZhbGlzZWQgVG90YWwgSG91c2Vob2xkIEluY29tZSAod2Vla2x5KWAsCiAgICAgICAgIG1vcnRtdGggPSBgTVJFUkQgTW9ydGdhZ2UgUmVwYXltZW50cyAobW9udGhseSkgUmFuZ2VzYCkgJT4lIAogIG11dGF0ZShoaGluY3drID0gYXNfZmFjdG9yKGhoaW5jd2spLCBtb3J0bXRoID0gYXNfZmFjdG9yKG1vcnRtdGgpKSAlPiUgCiAgcmVuYW1lKGhoID0gQ291bnQpICU+JSAKICBzZWxlY3QoLUNvdW50aW5nKQptb3J0Cgptb3J0X2R3IDwtIG1vcnQgJT4lIAogIGZpbHRlcihoaGluY3drICE9ICdOb3QgYXBwbGljYWJsZScsCiAgICAgICAgIG1vcnRtdGggIT0gJ05vdCBhcHBsaWNhYmxlJykgJT4lIAogIGdyb3VwX2J5KHNhMikgJT4lIAogIHN1bW1hcmlzZShkdyA9IHN1bShoaCkpIAptb3J0X2R3ICNhcyBub3RlZCBhYm92ZQoKbW9ydF9oaCA8LSBtb3J0ICU+JSAKICBmaWx0ZXIoIWhoaW5jd2sgJWluJSBjKCdOaWwgaW5jb21lJywgJ1BhcnRpYWwgaW5jb21lIHN0YXRlZCcsICdBbGwgaW5jb21lcyBub3Qgc3RhdGVkJywgJ05vdCBhcHBsaWNhYmxlJyksCiAgICAgICAgICFtb3J0bXRoICVpbiUgYygnTm90IHN0YXRlZCcsICdOb3QgYXBwbGljYWJsZScpKQptb3J0X2hoCmBgYAoKIyMgTWlkcG9pbnRzIGZvciBpbmNvbWUKCmBgYHtyfQpoaGluY3drX21pZCA8LSByZW50ZGF0YSAlPiUgCiAgcmVuYW1lKHNhMiA9IFNBMiwKICAgICAgICAgaGhpbmN3ayA9IGBISUVEIEVxdWl2YWxpc2VkIFRvdGFsIEhvdXNlaG9sZCBJbmNvbWUgKHdlZWtseSlgKSAlPiUgCiAgbXV0YXRlKGhoaW5jd2sgPSBhc19mYWN0b3IoaGhpbmN3aykpICU+JSAKICBkaXN0aW5jdChoaGluY3drKSAlPiUgCiAgZmlsdGVyKCFoaGluY3drICVpbiUgYygnTmlsIGluY29tZScsICdQYXJ0aWFsIGluY29tZSBzdGF0ZWQnLCAnQWxsIGluY29tZXMgbm90IHN0YXRlZCcsICdOb3QgYXBwbGljYWJsZScsICdUb3RhbCcpKSAlPiUgCiAgbXV0YXRlKGluY19sb3cgPSBjKDEsIDE1MCwgMzAwLCA0MDAsIDUwMCwgNjUwLCA4MDAsIDEwMDAsIDEyNTAsIDE1MDAsIDE3NTAsIDIwMDAsIDI1MDAsIDMwMDApLAogICAgICAgICBpbmNfaGlnaCA9IGMoMTQ5LCAyOTksIDM5OSwgNDk5LCA2NDksIDc5OSwgOTk5LCAxMjQ5LCAxNDk5LCAxNzQ5LCAxOTk5LCAyNDk5LCAyOTk5LCAzNDk5KSwKICAgICAgICAgaW5jX21pZCA9IChpbmNfbG93K2luY19oaWdoKS8yKSAlPiUgCiAgc2VsZWN0KGhoaW5jd2ssIGluY19taWQpCmhoaW5jd2tfbWlkIApgYGAKCkZpbHRlciB0byBpbmNsdWRlIG9ubHkgYm90dG9tIDQwIHBlciBjZW50IG9mIGhvdXNlaG9sZHMgYnkgaW5jb21lCgpFcXVpdmFsaXNlZCBkaXNwb3NhYmxlIGhvdXNlaG9sZCBpbmNvbWUgLSBQNDAgPSAkNzE0ICBpbiAyMDE1LTE2IGZvciBWSUMgLSBodHRwOi8vd3d3LmFicy5nb3YuYXUvQVVTU1RBVFMvYWJzQC5uc2YvRGV0YWlsc1BhZ2UvNjUyMy4wMjAxNS0xNj9PcGVuRG9jdW1lbnQKCmBgYHtyfQpoaGluY3drX21pZDQwIDwtIGhoaW5jd2tfbWlkICU+JSAKICBmaWx0ZXIoaW5jX21pZCA8PSA3MTQpCmhoaW5jd2tfbWlkNDAKYGBgCgojIyBNaWRwb2ludHMgZm9yIHJlbnQgYW5kIG1vcnRnYWdlcwoKYGBge3J9CnJlbnR3a19taWQgPC0gcmVudGRhdGEgJT4lIAogIHJlbmFtZShyZW50d2sgPSBgUk5UUkQgUmVudCAod2Vla2x5KSBSYW5nZXNgKSAlPiUgCiAgZGlzdGluY3QocmVudHdrKSAlPiUgCiAgbXV0YXRlKHJlbnR3ayA9IGFzX2ZhY3RvcihyZW50d2spKSAlPiUgCiAgZmlsdGVyKCFyZW50d2sgJWluJSBjKCdOb3Qgc3RhdGVkJywgJ05vdCBhcHBsaWNhYmxlJywgJ1RvdGFsJyApKSAlPiUgCiAgbXV0YXRlKHJlbnRfbG93ID0gYygwLCAxLCA3NSwgMTAwLCAxMjUsIDE1MCwgMTc1LCAyMDAsIDIyNSwgMjUwLCAyNzUsIDMwMCwgMzI1LCAzNTAsIDM3NSwgNDAwLCA0MjUsIDQ1MCwgNTUwLCA2NTAsIDc1MCwgODUwLCA5NTApLAogICAgICAgICByZW50X2hpZ2ggPSBjKDAsIDc0LCA5OSwgMTI0LCAxNDksIDE3NCwgMTk5LCAyMjQsIDI0OSwgMjc0LCAyOTksIDMyNCwgMzQ5LCAzNzQsIDM5OSwgNDI0LCA0NDksIDU0OSwgNjQ5LCA3NDksIDg0OSwgOTQ5LCAxMDUwKSxyZW50X21pZCA9IChyZW50X2xvdyArIHJlbnRfaGlnaCkvMikgJT4lIAogIHNlbGVjdChyZW50d2ssIHJlbnRfbWlkKQpyZW50d2tfbWlkCgptb3J0d2tfbWlkIDwtIG1vcnRkYXRhICU+JSAKICByZW5hbWUobW9ydG10aCA9IGBNUkVSRCBNb3J0Z2FnZSBSZXBheW1lbnRzIChtb250aGx5KSBSYW5nZXNgKSAlPiUgCiAgZGlzdGluY3QobW9ydG10aCkgJT4lIAogIG11dGF0ZShtb3J0bXRoID0gYXNfZmFjdG9yKG1vcnRtdGgpKSAlPiUgCiAgZmlsdGVyKCFtb3J0bXRoICVpbiUgYygnTm90IHN0YXRlZCcsICdOb3QgYXBwbGljYWJsZScpKSAlPiUgCiAgbXV0YXRlKG1vcnRfbG93ID0gYygwLCAxLCAxNTAsIDMwMCwgNDUwLCA2MDAsIDgwMCwgMTAwMCwgMTIwMCwgMTQwMCwgMTYwMCwgMTgwMCwgMjAwMCwgMjIwMCwgMjQwMCwgMjYwMCwgMzAwMCwgNDAwMCwgNTAwMCksCiAgICAgICAgIG1vcnR3a19sb3cgPSBtb3J0X2xvdy80LAogICAgICAgICBtb3J0X2hpZ2ggPSBjKDAsIDE0OSwgMjk5LCA0NDksIDU5OSwgNzk5LCA5OTksIDExOTksIDEzOTksIDE1OTksIDE3OTksIDE5OTksIDIxOTksIDIzOTksIDI1OTksIDI5OTksIDM5OTksIDQ5OTksIDU5OTkpLAogICAgICAgICBtb3J0d2tfaGlnaCA9IG1vcnRfaGlnaC80LAogICAgICAgICBtb3J0X21pZCA9IChtb3J0X2xvdyArIG1vcnRfaGlnaCkvMiwKICAgICAgICAgbW9ydHdrX21pZCA9IChtb3J0d2tfbG93ICsgbW9ydHdrX2hpZ2gpLzIpICU+JSAKICBzZWxlY3QobW9ydG10aCwgbW9ydF9taWQsIG1vcnR3a19taWQpCm1vcnR3a19taWQgCmBgYAoKIyMgSm9pbmluZwoKYGBge3J9CiNqb2luaW5nIHRoZSBkYXRhICAjIyMjCnJlbnRfam9pbiA8LSBsZWZ0X2pvaW4oaGhpbmN3a19taWQ0MCwgcmVudF9oaCkKcmVudF9qb2luIDwtIGxlZnRfam9pbihyZW50X2pvaW4sIHJlbnR3a19taWQpCnJlbnRfam9pbgoKbW9ydF9qb2luIDwtIGxlZnRfam9pbihoaGluY3drX21pZDQwLCBtb3J0X2hoKQptb3J0X2pvaW4gPC0gbGVmdF9qb2luKG1vcnRfam9pbiwgbW9ydHdrX21pZCkKbW9ydF9qb2luCmBgYAoKIyMgU3RyZXNzCgpgYGB7cn0KcmVudGFsc3RyZXNzIDwtIHJlbnRfam9pbiAlPiUgCiAgbXV0YXRlKHByb3Bob3VzaW5nID0gcmVudF9taWQvaW5jX21pZCwKICAgICAgICAgaHN0cmVzcyA9IGlmZWxzZShwcm9waG91c2luZyA8PSAwLjMsIDAsIGhoKSkgJT4lIAogIGdyb3VwX2J5KHNhMikgJT4lIAogIHN1bW1hcmlzZShsb3dpbmNfaGggPSBzdW0oaGgpLCBoc3RyZXNzID0gc3VtKGhzdHJlc3MpKQpyZW50YWxzdHJlc3MgPC0gbGVmdF9qb2luKHJlbnRhbHN0cmVzcywgcmVudF9kdywgYnkgPSAic2EyIikgJT4lIAogIHNlbGVjdChzYTIsIGR3LCBsb3dpbmNfaGgsIGhzdHJlc3MpICU+JSAKICBtdXRhdGUocHJvcHN0cmVzcyA9IGhzdHJlc3MvZHcpCnJlbnRhbHN0cmVzcwoKbW9ydGdhZ2VzdHJlc3MgPC0gbW9ydF9qb2luICU+JSAKICBtdXRhdGUocHJvcGhvdXNpbmcgPSBtb3J0d2tfbWlkL2luY19taWQsCiAgICAgICAgIGhzdHJlc3MgPSBpZmVsc2UocHJvcGhvdXNpbmcgPD0gMC4zLCAwLCBoaCkpICU+JSAKICBncm91cF9ieShzYTIpICU+JSAKICBzdW1tYXJpc2UobG93aW5jX2hoID0gc3VtKGhoKSwgaHN0cmVzcyA9IHN1bShoc3RyZXNzKSkKbW9ydGdhZ2VzdHJlc3MgPC0gbGVmdF9qb2luKG1vcnRnYWdlc3RyZXNzLCBtb3J0X2R3LCBieSA9ICJzYTIiKSAlPiUgCiAgc2VsZWN0KHNhMiwgZHcsIGxvd2luY19oaCwgaHN0cmVzcykgJT4lIAogIG11dGF0ZShwcm9wc3RyZXNzID0gaHN0cmVzcy9kdykKbW9ydGdhZ2VzdHJlc3MgCgpob3VzaW5nc3RyZXNzX2pvaW4gPC0gZnVsbF9qb2luKHJlbnRhbHN0cmVzcywgbW9ydGdhZ2VzdHJlc3MpCmhvdXNpbmdzdHJlc3Nfc2EyIDwtIGhvdXNpbmdzdHJlc3Nfam9pbiAlPiUgCiAgZ3JvdXBfYnkoc2EyKSAlPiUgCiAgc3VtbWFyaXNlKGR3ID0gc3VtKGR3KSwgbG93aW5jX2hoID0gc3VtKGxvd2luY19oaCksIGhzdHJlc3MgPSBzdW0oaHN0cmVzcykpICU+JSAKICBtdXRhdGUocHJvcF9zdHJlc3MgPSBoc3RyZXNzL2R3KSAlPiUgCiAgZmlsdGVyKCFpcy5uYShwcm9wX3N0cmVzcykpCmhvdXNpbmdzdHJlc3Nfc2EyCgp3cml0ZV9jc3YoaG91c2luZ3N0cmVzc19zYTIsICJ0YWJsZXNfb3V0L2hvdXNpbmdzdHJlc3Nfc2EyLmNzdiIpCgpgYGAKCiMjIFdoYXQgZG9lcyBpdCBsb29rIGxpa2U/CgpNb3N0IG9mIHRoZSBTQTJzIGhhdmUgZmV3ZXIgdGhhbiAzMCBwZXIgY2VudCBvZiBob3VzZWhvbGRzIGluIGhvdXNpbmcgc3RyZXNzLgoKYGBge3J9CmdncGxvdChob3VzaW5nc3RyZXNzX3NhMiwgYWVzKHggPSBwcm9wX3N0cmVzcykpICsKICBnZW9tX2hpc3RvZ3JhbShiaW5zID0gNTApCmBgYAoKCiMjIFRoZSBzaGFwZWZpbGUKCmBgYHtyfQpnbV9zaHAgPC0gc3RfcmVhZCgic2hwL1NBMl8yMDE2X0dNRUwuc2hwIikgJT4lIAogIGNsZWFuX25hbWVzKCkgJT4lIAogIHNlbGVjdChzYTJfbmFtZTE2KSAlPiUgCiAgbGVmdF9qb2luKGhvdXNpbmdzdHJlc3Nfc2EyLCBieSA9IGMoInNhMl9uYW1lMTYiID0gInNhMiIpKSAlPiUgCiAgbXV0YXRlKHByb3Bfc3RyZXNzID0gcm91bmQocHJvcF9zdHJlc3MsIDIpKQpgYGAKCiMjIFRoZSBtYXAKCkNvbmNlbnRyYXRpb25zIGluIHRoZSBncm93dGggYXJlYXMuCgpgYGB7cn0KdG1hcF9tb2RlKCJ2aWV3IikKCnRtX3NoYXBlKGdtX3NocCkgKwogIHRtX3BvbHlnb25zKCJwcm9wX3N0cmVzcyIpCmBgYAoK